home *** CD-ROM | disk | FTP | other *** search
/ MacWorld UK 2000 March / MW_UK_2000_03.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / thinkRefMenu.tcl < prev    next >
Encoding:
Text File  |  1999-10-21  |  1.5 KB  |  73 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2. # THINK Ref
  3. #================================================================================
  4.  
  5. alpha::menu thinkRefMenu 1.0.1 "C C++ Java Pasc" "•265" {
  6. } thinkRefMenu
  7.  
  8. proc thinkRefMenu {} {}
  9.  
  10. Menu -n $thinkRefMenu {
  11.     "gotoReference"
  12.     "(-"
  13.     "displayTrapTemplate"
  14.     "insertTrapTemplate"
  15.     "/L<O<UlookupTrap"
  16. }
  17.  
  18.  
  19.  
  20. set lastTrap {}
  21.  
  22. proc insertTrapTemplate {} {
  23.     global lastTrap
  24.     
  25.     app::launchFore DanR
  26.     set text [getSelect]
  27.     if {![string length $text]} {
  28.     if {[catch {prompt "Trap name:" $lastTrap} text]} return
  29.     } else {
  30.     deleteText [getPos] [selEnd]
  31.     }
  32.     set lastTrap $text
  33.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  34.     regexp {“.*”} $res one
  35.     insertText [string trim $one {“”}]
  36. }
  37.  
  38. proc displayTrapTemplate {} {
  39.     global lastTrap
  40.     
  41.     app::launchFore DanR
  42.     set text {}
  43.     catch {set text [getSelect]}
  44.     if {![string length $text]} {
  45.     if {[catch {prompt "Trap name:" $lastTrap} text]} return
  46.     }
  47.     set lastTrap $text
  48.     
  49.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  50.     regexp {“.*”} $res one
  51.     alertnote [string trim $one {“”}]
  52. }
  53.  
  54. proc lookupTrap {} {
  55.     global lastTrap
  56.     
  57.     app::launchFore DanR
  58.     set text {}
  59.     catch {set text [getSelect]}
  60.     if {![string length $text]} {
  61.     if {[catch {prompt "Trap name:" $lastTrap} text]} return
  62.     }
  63.     set lastTrap $text
  64.     set num 0
  65.     AEBuild {'DanR'} DanR {REF } "----" "“$text”"
  66. }
  67.  
  68. proc gotoReference {} {
  69.     app::launchFore DanR
  70. }
  71.  
  72.  
  73.